home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / Pixload-1.74.lha / Pixload-1.74 / Pixload-prefs < prev    next >
Text File  |  2002-06-15  |  5KB  |  223 lines
  1. /**/
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6.  
  7. call init
  8. call CreateApp
  9. call Lecture
  10. call HandleApp
  11.  
  12. /************************************************/
  13. init: procedure expose nb nbicon
  14.  
  15.    l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  16.    if AddLibrary("rxmui.library")~=0 then exit
  17.    call RxMUIOpt("debugmode showerr")
  18.  
  19.    call open(chemin,"Pixload:Prefs/Pixload.prefs",'Read')
  20.         nbicon=readln(chemin)
  21.         nb=nbicon
  22.    close(chemin)
  23.  
  24.    return
  25.  
  26. /***********************************************************************/
  27. HandleApp: procedure expose nb nbicon
  28.  
  29.  
  30.     ctrl_c=2**12
  31.     do forever
  32.  
  33.         call NewHandle("app","h",ctrl_c)
  34.         if and(h.signals,ctrl_c)>0 then exit
  35.  
  36.         select
  37.            when h.event="QUIT" then exit
  38.            when h.event="DROPEVENT" then call DropFun(h.from,h.to)
  39.            otherwise interpret h.event
  40.         end
  41.     end
  42.  
  43.     /* never reached */
  44. /***********************************************************************/
  45. CreateApp: procedure expose nb nbicon
  46.  
  47.     app.Title="Pixload-Prefs"
  48.     app.Version="$VER: Pixload-Prefs version 1.74"
  49.     app.Author="Pixel Art - www.pixel-art.fr.st"
  50.     app.Base="Pixload-config"
  51.     app.SubWindow="win"
  52.  
  53.      win.ID="MAIN"
  54.      win.Title="Pixload's settings"
  55.  
  56.      win.Contents="mgroup"
  57.  
  58.     mgroup.0="tex"
  59.        tex.class="group"
  60.        tex.frame="group"
  61.        tex.columns=7
  62.  
  63.        tex.0=checkmark("large",0)
  64.  
  65.        tex.1="texx0"
  66.           texx0.class="text"
  67.           texx0.contents=Parsetext("%3Horizontal Pixload bar")
  68.  
  69.        tex.2="texx1"
  70.          texx1.class="numericbutton"
  71.          texx1.min=1
  72.          texx1.max=15
  73.          texx1.value=nbicon
  74.  
  75.        tex.3="texx2"
  76.          texx2.class="text"
  77.          texx2.contents=Parsetext("%3Number of icons")
  78.  
  79.        tex.4="texx3"
  80.          texx3.class="text"
  81.          texx3.contents=""
  82.          texx3.inputmode="relverify"
  83.          texx3.frame="button"
  84.  
  85.     mgroup.1="ctrlg"
  86.        ctrlg.class="group"
  87.        ctrlg.frame="group"
  88.        ctrlg.columns=4
  89.  
  90.      do i=0 to nbicon-1
  91.  
  92.          k=i*4
  93.          ctrlg.k="bm1."i
  94.          bm1.i.class="gfxpic"
  95.          bm1.i.ShortHelp=Parsetext("%cCliquer sur le petit bouton si c'est un script\nClick on this little button if is a script")
  96.          bm1.i.source="Pixload:icones/"i
  97.          bm1.i.transparent=1
  98.          bm1.i.scale=70
  99.          bm1.i.precision="image"
  100.          bm1.i.draw=1
  101.  
  102.          k=i*4+1
  103.          ctrlg.k="bm."i
  104.          bm.i=CheckMark("bm."i,0)
  105.        
  106.          k=i*4+2
  107.          ctrlg.k="popf."i
  108.          popf.i.class="popasl"
  109.          popf.i.ShortHelp='Programs'
  110.          popf.i.string=string("file."i,"f")
  111.  
  112.          k=i*4+3
  113.          ctrlg.k="gg."i
  114.          gg.i.class="group"
  115.          gg.i.ShortHelp=Parsetext("Help")
  116.           sa.i.CycleChain=1
  117.           gg.i.0=String("sa."i,"f")
  118.  
  119.     end
  120.  
  121.     if NewObj("APPLICATION","APP")>0 then exit
  122.  
  123.     call Notify("win","CloseRequest",1,"APP","ReturnID","quit")
  124.  
  125.     call Notify("texx3","selected",0,"app","Return","call Stocke(nb)")
  126.  
  127.     call Notify("texx1","value","everytime","app","return","call stocke(h.value)","triggerattr")
  128.  
  129.     call Notify("large","selected","everytime","app","Return","call Stocke(nb)")
  130.  
  131.     call set("win","open",1)
  132.  
  133. return
  134.  
  135. /***************************************/
  136. Lecture: procedure
  137.  
  138.     call open(chemin,"Pixload:Prefs/Pixload.prefs",'Read')
  139.  
  140.     nbicon=readln(chemin)
  141.  
  142.     fichier.num=readln(chemin)
  143.     call set(large,"selected",fichier.num)
  144.  
  145.     do num=0 while ~EOF(chemin)
  146.  
  147.        fichier.num=readln(chemin)
  148.  
  149.        if fichier.num~="" then do
  150.  
  151.           if fichier.num==1 then call set(bm.num,"selected",fichier.num)
  152.  
  153.              fichier.num=readln(chemin)
  154.              call set(file.num,"contents",fichier.num)
  155.  
  156.              fichier.num=readln(chemin)
  157.              call set(sa.num,"contents",fichier.num)
  158.        end
  159.  
  160.     end
  161.  
  162.     call close(chemin)
  163.     call set("app","sleep",0)
  164.  
  165. return
  166.  
  167.  
  168. /*--------------------------------*/
  169. Stocke: procedure expose nb nbicon
  170.  
  171. Parse arg nbb
  172.  
  173. call open(adresse,"Pixload:Prefs/Pixload.prefs",'Write')
  174.  
  175.      call WriteLN(adresse,nbb)
  176.      call WriteLN(adresse,xget("large","selected"))
  177.  
  178.      nbb=nbb-1
  179.  
  180.     do i=0 to nbb
  181.  
  182.        if i~>nbicon-1 then do
  183.  
  184.        call WriteLN(adresse,xget("bm."i,"selected"))
  185.        call WriteLN(adresse,xget("file."i,"contents"))
  186.        call WriteLN(adresse,xget("sa."i,"contents"))
  187.  
  188.        end
  189.  
  190.        else do
  191.  
  192.        call WriteLN(adresse,"")
  193.        call WriteLN(adresse,"")
  194.        call WriteLN(adresse,"")
  195.  
  196.        end
  197.  
  198.     end
  199.  
  200.     call set("texx3","contents",Parsetext("%c%3Save / Update"))
  201.  
  202.     nb=nbb+1
  203.  
  204.     call close(adresse)
  205.  
  206.     if show('P','PIXLOAD.1') then
  207.        do
  208.         address 'PIXLOAD.1'
  209.         Quit
  210.        end
  211.  
  212.     address command 'sys:c/wait sec=1'
  213.     address command 'sys:c/wbrun Pixload:Pixload'
  214.  
  215.  
  216. return
  217.  
  218. /*------------- */
  219. halt:
  220. break=_c:
  221. exit
  222.  
  223.